home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1991 …esperately Seeking Seven / Desperately Seeking Seven.2mg / Dev.CD.8 / Essentials / Tools / DTS.Samples / SC02BusyBox / BusyBox.p / UGlobals.p < prev    next >
Encoding:
Text File  |  1990-05-25  |  2.0 KB  |  90 lines  |  [04] ASCII Text (0x0000)
  1. {**********************************************************************
  2. {*
  3. {*
  4. {* BusyBox Globals -- Version 3.0  (interface)
  5. {*
  6. {* Copyright (c)
  7. {* Apple Computer, Inc.  1986-1989
  8. {* All Rights Reserved.
  9. {*
  10. {* Developer Technical Support Apple II Sample Code
  11. {*
  12. {* This file contains the global variables used by the BusyBox 
  13. {* program.
  14. {*
  15. {**********************************************************************}
  16.  
  17. UNIT uGlobals;
  18.  
  19. INTERFACE
  20.  
  21. USES    
  22.  
  23.         types,
  24.         locator,
  25.         memory,
  26.         quickdraw,
  27.         intMath,
  28.         events,
  29.         controls,
  30.         windows,
  31.         lineedit,
  32.         dialogs,
  33.         STDFile;
  34.  
  35. const
  36.  
  37.         AppleMenuID       = $1100;
  38.             AboutItem     = $1101;
  39.         FileMenuID        = $1200;
  40.             CloseItem     = 255;   {For DA's}
  41.             QuitItem      = $1202;
  42.         EditMenuID        = $1300;
  43.             UndoItem      = 250;    {For DA's}
  44.             CutItem       = 251;    {For DA's}
  45.             CopyItem      = 252;    {For DA's}
  46.             PasteItem     = 253;    {For DA's}
  47.             ClearItem     = 254;    {For DA's}
  48.  
  49.         NumWindows       = 14;
  50.         NumWindowsMin1 = 13;
  51.  
  52.         ButButtonsID = 1;
  53.         ButStatTextID = 2;
  54.         ButLineEditID = 3;
  55.         ButPicturesID = 4;
  56.         ButPopUpsID = 5;
  57.         ButTextEditID = 6;
  58.         ButListsID = 7;
  59.         
  60.         Prog1ID = 8;
  61.         Prog2ID = 9;
  62.         Prog3ID = 10;
  63.         Prog4ID = 11;
  64.         Prog5ID = 12;
  65.         Prog6ID = 13;
  66.  
  67.  
  68. var
  69.        MyMemoryID    : integer;      {Application ID assigned by Memory Mgr}
  70.        Done          : boolean;      {True when quitting}
  71.        StaggerCount  : integer;      {used to stagger windows as they open }
  72.        Event         : WmTaskRec;    {All events are returned here}
  73.        
  74.        WindowList   : array [0..NumWindowsMin1] of WindowPtr;
  75.  
  76.        
  77.  
  78.  
  79. procedure InitGlobals;                                     {Setup variables}
  80.  
  81. IMPLEMENTATION
  82.  
  83. procedure InitGlobals;
  84.     begin   {of InitGlobals}
  85.         StaggerCount := 0;
  86.     end;    {of InitGlobals}
  87.  
  88.  
  89. END.
  90.